home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / GSXWMODE.INC < prev    next >
Text File  |  1986-02-27  |  1KB  |  22 lines
  1. { --- mode control functions.  Include file GSXWMODE.INC --- }
  2. {********************************************************************}
  3. procedure setwritingmode( mode : integer;  {in: 1=replace, 2=overstrike,
  4.                                                 3=complement, 4=erase}
  5.               var realizedmode : integer   {out: mode realized by device}
  6.               );
  7. {********************************************************************}
  8.   { set mode in which pixels are displayed }
  9.   var   contrl : array[1..5] of integer;
  10.         intin, ptsin, intout, ptsout : integer;
  11.  
  12.   begin    contrl[1] := 32;
  13.            contrl[2] :=  0;
  14.            contrl[4] :=  1;
  15.            intin     := mode;
  16.            setpblock( addr(contrl), addr(intin ),
  17.                       addr(ptsin ), addr(intout),
  18.                       addr(ptsout));
  19.            callgdos( addr(pb));
  20.            realizedmode := intout
  21.   end;
  22.